MM Clustering Models
Title
library(leaflet)
library(dplyr)
library(readxl)
library(ggplot2)
library(spatstat)
library(sf)
library(geojsonio)
#bogota <- geojson_read("../geodata/bogota.geojson", what = "sp")
bogota_json <- readLines("../geodata/upla.json") %>% paste(collapse = "\n")
## Warning in readLines("../geodata/upla.json"): incomplete final line found on
## '../geodata/upla.json'
m <- leaflet(options = leafletOptions(minZoom = 0, maxZoom = 18)) %>%
addTiles() %>%
setView(lng = -74.10002385122866 , lat = 4.636962048294948, zoom = 10) %>%
addGeoJSON(bogota_json, weight = 1, color = "#444444", fill = TRUE)
m